ggmap jpn

library(ggmap)

## Loading required package: ggplot2

library(mapproj)

## Loading required package: maps

??ggmap ## Set location

map <- get_map(location = 'Japan', zoom = 6)

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Japan&zoom=6&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false

## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Japan&sensor=false

ggmap(map)

Set language

map <- get_map(location = 'Japan', zoom = 7,
  language = "jpn")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Japan&zoom=7&size=640x640&scale=2&maptype=terrain&language=jpn&sensor=false

## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Japan&sensor=false

ggmap(map)

Set specfic location

map <- get_map(location = c(lon = 138.4, lat = 35),
  zoom = 12, language = "jpn")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=35,138.4&zoom=12&size=640x640&scale=2&maptype=terrain&language=jpn&sensor=false

ggmap(map)

Set maptype

Origin type: terrain

map <- get_map(location = c(lon = 138.4, lat = 35),
  zoom = 12, language = "jpn", maptype = "roadmap")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=35,138.4&zoom=12&size=640x640&scale=2&maptype=roadmap&language=jpn&sensor=false

ggmap(map)

Set the light

map <- get_map(location = c(lon = 138.4, lat = 35),
  zoom = 12, language = "jpn")

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=35,138.4&zoom=12&size=640x640&scale=2&maptype=terrain&language=jpn&sensor=false

ggmap(map, darken = c(0.5, "white"))